home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr02 / pos10g.zip / ORDER.ZIP / ORDER.FIL < prev    next >
Text File  |  1993-05-08  |  18KB  |  538 lines
  1. !==============================================================================
  2. !                 FILE LAYOUTS
  3. !==============================================================================
  4. TAXCODE         FILE,NAME('\MENU\DATA\TAXCODE'),PRE(TAX),CREATE,RECLAIM
  5. TAXKEY           KEY(TAX:TAXCODE),NOCASE,OPT
  6. RECORD           RECORD
  7. TAXCODE         STRING(2)
  8. DESCRIP         STRING(25)
  9. PERCENT         DECIMAL(5,4)
  10.          . .
  11. !------------------------------------------------------------------------------
  12. PRNCTL_         FILE,NAME('\MENU\PRNCTL_'),PRE(PC_),CREATE,RECLAIM
  13. NAMEKEY           KEY(PC_:NAME),NOCASE,OPT
  14. RECORD           RECORD
  15. NAME         STRING(32)             !Do Not Change This File!
  16. PORT         STRING(4)             !Do Not Change This File!
  17. CPI         GROUP                 !Do Not Change This File!
  18. CPI_10           STRING(30)             !Do Not Change This File!
  19. CPI_12           STRING(30)             !Do Not Change This File!
  20. CPI_15           STRING(30)             !Do Not Change This File!
  21.          .
  22. LPI         GROUP                 !Do Not Change This File!
  23. LPI_6           STRING(30)             !Do Not Change This File!
  24. LPI_8           STRING(30)             !Do Not Change This File!
  25.          .
  26. BOLD         GROUP                 !Do Not Change This File!
  27. BOLDON           STRING(30)             !Do Not Change This File!
  28. BOLDOFF           STRING(30)             !Do Not Change This File!
  29.          .
  30. ITALICS         GROUP                 !Do Not Change This File!
  31. ITALICSON       STRING(30)             !Do Not Change This File!
  32. ITALICSOFF       STRING(30)             !Do Not Change This File!
  33.          .
  34. UNDERLINE     GROUP                 !Do Not Change This File!
  35. UNDERLINEON       STRING(30)             !Do Not Change This File!
  36. UNDERLINEOFF       STRING(30)             !Do Not Change This File!
  37.          .
  38. CUSTOM         GROUP                 !Do Not Change This File!
  39. CUSTOM1           STRING(30)             !Do Not Change This File!
  40. CUSTOM2           STRING(30)             !Do Not Change This File!
  41. CUSTOM3           STRING(30)             !Do Not Change This File!
  42. CUSTOM4           STRING(30)             !Do Not Change This File!
  43. CUSTOM5           STRING(30)             !Do Not Change This File!
  44. CUSTOM6           STRING(30)             !Do Not Change This File!
  45. CUSTOM7           STRING(30)             !Do Not Change This File!
  46. CUSTOM8           STRING(30)             !Do Not Change This File!
  47.          .
  48.          . .
  49. !------------------------------------------------------------------------------
  50. NETCODE         FILE,NAME('\MENU\DATA\NETCODE'),PRE(NET),CREATE,RECLAIM
  51. TERMCODE       KEY(NET:CODE),NOCASE,OPT
  52. RECORD           RECORD
  53. CODE         STRING(2)
  54. TERMS         STRING(20)
  55. DAYS         DECIMAL(3,0)
  56. DISCOUNT     DECIMAL(5,2)
  57. EXTRA1         STRING(10)
  58. EXTRA2         STRING(10)
  59. EXTRA3         STRING(10)
  60. EXTRA4         STRING(10)
  61. EXTRA5         DECIMAL(10,0)
  62.          . .
  63. !------------------------------------------------------------------------------
  64. ADS         FILE,NAME('\MENU\ADS'),PRE(ADS),CREATE,RECLAIM
  65. RECORD           RECORD
  66. LINE1         STRING(30)             !Line one for advertisement
  67. LINE2         STRING(30)
  68. LINE3         STRING(30)
  69. LINE4         STRING(30)
  70. LINE5         STRING(30)
  71.          . .
  72. !------------------------------------------------------------------------------
  73. INFO         FILE,NAME('\MENU\INFO'),PRE(INF),CREATE,RECLAIM
  74. COMPCODE       KEY(INF:CODE),NOCASE,OPT
  75. RECORD           RECORD
  76. CO_RPT         STRING(60)
  77. CODE         STRING(8)             !Company code (INV header)
  78. CO_DISP         STRING(30)
  79. CO_ADDR1     STRING(30)
  80. CO_ADDR2     STRING(30)
  81. CO_CITY         STRING(25)
  82. CO_STATE     STRING(2)
  83. CO_ZIP         STRING(10)
  84. GSTRATE         DECIMAL(6,4)
  85. CO_PHONE     STRING(@p### ###-####p)
  86. INVCOUNT     DECIMAL(5,0)             !invoice limit Counter
  87. KEY         SHORT                 !open lock
  88. SERIAL         DECIMAL(6,0)             !Serial Number of program
  89.          . .
  90. !------------------------------------------------------------------------------
  91. PRODUCTS     FILE,NAME('\MENU\DATA\PRODUCTS'),PRE(PRO),CREATE,RECLAIM
  92. ITEM_KEY       KEY(PRO:ITEM),NOCASE,OPT
  93. VENCARY           KEY(PRO:VENDOR_CODE),DUP,NOCASE,OPT
  94. OWNERS           KEY(PRO:OWNER),DUP,NOCASE,OPT
  95. PROD_CODE      KEY(PRO:PROCODE),NOCASE,OPT
  96. RECORD           RECORD
  97. ITEM         STRING(20)
  98. PROCODE         STRING(20)
  99. DEFINER         STRING(1)
  100. DESC         STRING(50)
  101. PRICE         DECIMAL(7,2)             !Selling price1
  102. PRICE2         DECIMAL(7,2)
  103. PRICE3         DECIMAL(7,2)
  104. PRICE4         DECIMAL(7,2)
  105. PURCHASE     DECIMAL(9,2)             !Purchase price
  106. OWNER         STRING(8)             !Company Ownership
  107. OWNER_NAME     STRING(60)
  108. VENDOR_CODE     STRING(8)
  109. VENDOR_NAME     STRING(60)
  110. TAGNUMBER     STRING(10)             !Code Number
  111. QNTAV         DECIMAL(11,2)             !Quantity Avail
  112. MINUMUM         DECIMAL(4,0)
  113. MULTI         DECIMAL(2,0)
  114. TAXABLE         STRING(1)             !Taxable item
  115. GSTABLE         STRING(1)             !charge GST ?
  116. LASTORDER     DECIMAL(9,0)
  117. LASTDATEORD     LONG
  118. TOTAL         DECIMAL(15,0)             !Total bottles
  119. PROD_TYPE     STRING(10)             !Product Type
  120. LOCATION     STRING(10)
  121. EXTRA1         STRING(10)
  122. EXTRA2         STRING(10)
  123. EXTRA3         STRING(10)
  124. EXTRA4         STRING(10)
  125. EXTRA5         DECIMAL(10,0)
  126.          . .
  127. !------------------------------------------------------------------------------
  128. CATAGORY     FILE,NAME('\MENU\CATAGORY'),PRE(CAT),CREATE,RECLAIM
  129. CATA_KEY       KEY(CAT:CATAGORY),NOCASE,OPT
  130. RECORD           RECORD
  131. CATAGORY     STRING(10)
  132.          . .
  133. !------------------------------------------------------------------------------
  134. ZIPCODE         FILE,NAME('\MENU\ZIPCODE'),PRE(ZIP),CREATE,RECLAIM
  135. ZIPCODE           KEY(ZIP:ZIP),NOCASE
  136. STATE_KEY      KEY(ZIP:STATE),DUP,NOCASE
  137. RECORD           RECORD
  138. ZIP         STRING(10)             !Zip code
  139. CITY         STRING(20)             !City
  140. STATE         STRING(2)
  141. ST_DESCRIP     STRING(20)             !state Description
  142.          . .
  143. !------------------------------------------------------------------------------
  144. CUSTOMER     FILE,NAME('\MENU\DATA\CUSTOMER'),PRE(CUS),CREATE,RECLAIM
  145. CUST_KEY       KEY(CUS:CODE),NOCASE
  146. NAME_KEY       KEY(CUS:NAME),DUP,NOCASE
  147. RECORD_NUM     KEY(CUS:RECORDNUM),NOCASE,OPT
  148. RECORD           RECORD
  149. CODE         STRING(8)             !Customer Code
  150. CUSFULLINFO     GROUP
  151. NAME           STRING(60)
  152. ADDRESS           STRING(60)
  153. CITY           STRING(60)
  154. STATE           STRING(20)
  155. ZIP           STRING(10)
  156.          .
  157. CUSSHIPINFO     GROUP
  158. SNAME           STRING(60)             !Shipping Name
  159. SADDRESS       STRING(60)             !Shipping Address
  160. SCITY           STRING(60)             !Shipping city
  161. SSTATE           STRING(20)             !Shipping State
  162. SZIP           STRING(10)             !Shipping Zip
  163.          .
  164. SPHONE1         DECIMAL(14,0)
  165. CONTACT1     STRING(30)             !Owner or President of business
  166. BIRTHDATE     LONG                 !Birthdate of owner or Manager
  167. CONTACT2     STRING(30)             !Manager or Supervisor
  168. BIRTHDATE2     LONG
  169. PHONE1         DECIMAL(14,0)             !Main Phone
  170. PHONE2         DECIMAL(14,0)
  171. PHONE3         DECIMAL(14,0)
  172. FAX         DECIMAL(14,0)             !Main fax phone number
  173. TYPECONT     STRING(11)             !Type of contact
  174. TYPEMUS         STRING(12)             !customer status
  175. LIMIT         DECIMAL(12,2)             !Total credit allowed
  176. DUE         DECIMAL(13,2)             !Total Amount of opened invs
  177. RETURNCHKS     DECIMAL(3,0)             !Number of returned checks
  178. DATE         REAL                 !Date entered
  179. PCODE         STRING(1)             !Purchase Code
  180. NETCODE         STRING(2)
  181. TAXCODE         STRING(2)
  182. GSTABLE         STRING(1)
  183. SHIPMETHOD     STRING(2)
  184. YTD         LONG
  185. LICENSE         STRING(20)             !Business License Number
  186. TAX_NO         STRING(20)             !Tax Exempt Number
  187. RECORDNUM     DECIMAL(15,0)
  188. DRAWER_CODE     STRING(10)
  189.          . .
  190. !------------------------------------------------------------------------------
  191. TYPES         FILE,NAME('\MENU\TYPES'),PRE(TYP),CREATE,RECLAIM
  192. TYPE_KEY       KEY(TYP:TYPES),NOCASE,OPT
  193. RECORD           RECORD
  194. TYPES         STRING(10)
  195.          . .
  196. !------------------------------------------------------------------------------
  197. PCODES         FILE,NAME('\MENU\PCODES'),PRE(PCO),CREATE,RECLAIM
  198. PCODE_KEY      KEY(PCO:PRICE_CODE),NOCASE,OPT
  199. RECORD           RECORD
  200. PRICE_CODE     STRING(1)
  201. DESCRIPTION     STRING(15)
  202.          . .
  203. !------------------------------------------------------------------------------
  204. VARIBLES     FILE,NAME('\MENU\VARIBLES'),PRE(VAR),CREATE,RECLAIM
  205. FIELD_KEY      KEY(VAR:FIELD),DUP,NOCASE,OPT
  206. TYPE_KEY       KEY(VAR:TYPE,VAR:FIELD),DUP,NOCASE,OPT
  207. RECORD           RECORD
  208. FIELD         STRING(40)
  209. DESCRIPTION     STRING(30)
  210. TYPE         STRING(1)
  211.          . .
  212. !------------------------------------------------------------------------------
  213. COMMENT         FILE,NAME('\MENU\DATA\COMMENT'),PRE(COM),CREATE,RECLAIM
  214. RECORD_NO      KEY(COM:RECORDNUM),DUP,NOCASE
  215. COMMENTNUMB    KEY(COM:COMMENTNUM),NOCASE,OPT
  216. NOTE           MEMO(3008)
  217. RECORD           RECORD
  218. DATE         LONG                 !Comment Date
  219. PHONE         DECIMAL(10,0)
  220. APPOINT_DATE     LONG
  221. APPOINT_TIME     LONG
  222. SELE         STRING(2)
  223. HIGHLIGHT     STRING(45)
  224. RECORDNUM     DECIMAL(5,0)
  225. COMMENTNUM     DECIMAL(15,0)
  226.          . .
  227. !------------------------------------------------------------------------------
  228. VCOMMENT     FILE,NAME('\MENU\DATA\VCOMMENT'),PRE(VOM),CREATE,RECLAIM
  229. RECORD_NO      KEY(VOM:RECORDNUM),DUP,NOCASE
  230. COMMENTNUMB    KEY(VOM:COMMENTNUM),NOCASE,OPT
  231. NOTE           MEMO(3008)
  232. RECORD           RECORD
  233. DATE         LONG                 !Comment Date
  234. PHONE         DECIMAL(10,0)
  235. APPOINT_DATE     LONG
  236. APPOINT_TIME     LONG
  237. SELE         STRING(2)
  238. HIGHLIGHT     STRING(45)
  239. RECORDNUM     DECIMAL(5,0)
  240. COMMENTNUM     DECIMAL(15,0)
  241.          . .
  242. !------------------------------------------------------------------------------
  243. STATES         FILE,NAME('\MENU\STATES'),PRE(STA),CREATE,RECLAIM
  244. STATE_KEY      KEY(STA:DESCRIPTION),NOCASE,OPT
  245. RECORD           RECORD
  246. DESCRIPTION     STRING(20)
  247.          . .
  248. !------------------------------------------------------------------------------
  249. VENDORS         FILE,NAME('\MENU\DATA\VENDORS'),PRE(VEN),CREATE,RECLAIM
  250. VEND_KEY       KEY(VEN:CODE),NOCASE
  251. VNAME_KEY      KEY(VEN:NAME),DUP,NOCASE
  252. RECORD_NUM     KEY(VEN:RECORDNUM),NOCASE,OPT
  253. RECORD           RECORD
  254. CODE         STRING(8)             !Vendor Code
  255. VENFULLINFO     GROUP
  256. NAME           STRING(60)
  257. ADDRESS           STRING(60)
  258. CITY           STRING(20)
  259. STATE           STRING(20)
  260. ZIP           STRING(10)
  261.          .
  262. CONTACT1     STRING(30)             !Owner or President of business
  263. CONTACT2     STRING(30)             !Manager or Supervisor
  264. PHONE1         DECIMAL(14,0)             !Main Phone
  265. PHONE2         DECIMAL(14,0)
  266. PHONE3         DECIMAL(14,0)
  267. FAX         DECIMAL(14,0)             !Main fax phone number
  268. TYPEMUS         STRING(12)             !customer status
  269. BIRTHDATE     DECIMAL(12,0)             !Birthdate of owner or Manager
  270. LIMIT         DECIMAL(12,2)             !Total credit allowed
  271. DUE         DECIMAL(13,2)             !Total Amount of opened invs
  272. RETURNCHKS     DECIMAL(3,0)             !Number of returned checks
  273. DATE         REAL                 !Date entered
  274. PCODE         STRING(1)             !Purchase Code
  275. NETCODE         STRING(2)             !Vendor Net Terms Code
  276. TAXCODE         STRING(2)             !Vendor Tax Code
  277. GSTCODE         STRING(2)             !Gst Tax Code
  278. SHIPMETHOD     STRING(2)
  279. SUB         STRING(1)
  280. YTD         LONG
  281. LICENSE_NO     STRING(20)
  282. TAX_EXEMPT     STRING(20)
  283. RECORDNUM     DECIMAL(15,0)
  284.          . .
  285. !------------------------------------------------------------------------------
  286. ORDERAP         FILE,NAME('\MENU\DATA\ORDERAP'),PRE(OR2),CREATE,RECLAIM
  287. ORDER_KEY      KEY(OR2:ORDER),NOCASE,OPT
  288. CUST_KEY       KEY(OR2:CUS_CODE),DUP,NOCASE,OPT
  289. COMP           KEY(OR2:COMPCODE),DUP,NOCASE,OPT
  290. INVOICE           KEY(OR2:INVOICENUM),DUP,NOCASE,OPT
  291. QUOTE_KEY      KEY(OR2:QUOTE),DUP,NOCASE,OPT
  292. RECORD           RECORD
  293. ORDER         DECIMAL(10,0)
  294. INVOICENUM     STRING(10)
  295. COMPCODE     STRING(8)             !Company Code
  296. CUS_CODE     STRING(8)             !CUSTOMER CODE
  297. VENFULLINFO     GROUP
  298. NAME           STRING(60)             !shipping name
  299. ADDRESS           STRING(60)             !shipping Address
  300. CITY           STRING(20)             !shipping City
  301. STATE           STRING(20)             !Shipping State
  302. ZIP           STRING(10)             !Shipping Zip
  303.          .
  304. PHONE         DECIMAL(10,0)
  305. PERSON         STRING(25)
  306. DATE         LONG
  307. SHIPPING     DECIMAL(6,2)
  308. WEIGHT         DECIMAL(3,0)
  309. ONCES         DECIMAL(2,0)
  310. BOXES         DECIMAL(4,0)
  311. VIA         STRING(10)
  312. TAXES         DECIMAL(8,2)
  313. GSTTAX         DECIMAL(8,2)
  314. OTHER         DECIMAL(9,2)
  315. SUBTOTAL     DECIMAL(11,2)             !Total of items
  316. SUBTOTAL2     DECIMAL(11,2)             !Master totals of all items
  317. TOTAL         DECIMAL(11,2)
  318. CREDIT         DECIMAL(9,2)
  319. AMTPAID         DECIMAL(11,2)
  320. AMTDUE         DECIMAL(11,2)
  321. INVOICE_     DECIMAL(8,0)
  322. ITEMCNT         DECIMAL(5,0)             !Item Count
  323. QUOTE         STRING(10)
  324. EXTRA1         STRING(10)
  325. EXTRA2         STRING(10)
  326. EXTRA3         STRING(10)
  327. EXTRA4         STRING(10)
  328. EXTRA5         DECIMAL(8,0)
  329.          . .
  330. !------------------------------------------------------------------------------
  331. ORDITEAP     FILE,NAME('\MENU\DATA\ORDITEAP'),PRE(IT2),CREATE,RECLAIM
  332. ITEM_ORD       KEY(IT2:ORDER),DUP,NOCASE,OPT
  333. OTHERKEY       KEY(IT2:CUS_CODE,IT2:ITEM),DUP,NOCASE,OPT
  334. INVSEQNO       KEY(IT2:ORDER,IT2:ROW),NOCASE,OPT
  335. RECORD           RECORD
  336. ORDER         DECIMAL(8,0)
  337. INVOICENUM     STRING(10)
  338. CUS_CODE     STRING(8)
  339. COMP_CODE     STRING(8)
  340. CODE         STRING(20)
  341. DATE         LONG
  342. ROW         SHORT
  343. TYPE         STRING(4)
  344. UNITPRICE     DECIMAL(12,2)
  345. EXTENDED     DECIMAL(11,2)
  346. ITEM         STRING(24)
  347. DESC         STRING(60)
  348. QNTY         DECIMAL(7,0)
  349. QUOTE         STRING(8)
  350. OTHERINFO     STRING(30)
  351. OWNER         STRING(10)             !Ownership of Product
  352. TAXAMT         DECIMAL(8,2)             !Tax Amount
  353. GSTTAX         DECIMAL(8,2)             !Gst tax Amount
  354. DEFINER         STRING(1)
  355. PROD_TYPE     STRING(10)
  356. EXTRA1         STRING(10)
  357. EXTRA2         STRING(10)
  358. EXTRA3         STRING(10)
  359. EXTRA4         STRING(10)
  360. EXTRA5         DECIMAL(10,0)
  361.          . .
  362. !------------------------------------------------------------------------------
  363. VIASHIP         FILE,NAME('\MENU\VIASHIP'),PRE(VIA),CREATE,RECLAIM
  364. VIA_KEY           KEY(VIA:SHIPMETHOD),NOCASE,OPT
  365. RECORD           RECORD
  366. SHIPMETHOD     STRING(10)
  367.          . .
  368. !------------------------------------------------------------------------------
  369. CHECK         FILE,NAME('\MENU\DATA\CHECK'),PRE(CHE),CREATE,RECLAIM
  370. CHECK_KEY      KEY(CHE:STATUS,CHE:ACCOUNT_NUM),DUP,NOCASE,OPT
  371. RECORD           RECORD
  372. CARD_INFO     GROUP
  373. ORDER           DECIMAL(10,0)
  374. DATE           LONG
  375. CHECK_NUM       STRING(6)
  376. ACCOUNT_NUM       STRING(21)
  377. FNAME           STRING(60)
  378. EXPIRE_DATE       STRING(@p<</<<p)
  379. STATUS           STRING(8)
  380. BANKNAME       STRING(60)
  381. AMTPAID           DECIMAL(11,2)
  382. TOTAL           DECIMAL(11,2)
  383. ID           STRING(60)
  384. COMMENTINFO       STRING(255)
  385.          .
  386.          . .
  387. !------------------------------------------------------------------------------
  388. ORDERS         FILE,NAME('\MENU\DATA\ORDERS'),PRE(ORD),CREATE,RECLAIM
  389. ORDER_KEY      KEY(ORD:ORDER),NOCASE,OPT
  390. ORDER3_KEY     KEY(ORD:SALE_TYPE,ORD:ORDER),DUP,NOCASE,OPT
  391. CUST_KEY       KEY(ORD:CUS_CODE),DUP,NOCASE,OPT
  392. COMP           KEY(ORD:COMPCODE),DUP,NOCASE,OPT
  393. QUOTE_KEY      KEY(ORD:QUOTE),DUP,NOCASE,OPT
  394. ORDER_DATE     KEY(ORD:DATE,ORD:ORDER),DUP,NOCASE,OPT
  395. RECORD           RECORD
  396. CUS_CODE     STRING(8)             !Customer Code
  397. COMPCODE     STRING(8)             !Company Code
  398. SALE_TYPE     STRING(1)
  399. CREDIT_INFO     GROUP
  400. ORDER           DECIMAL(10,0)         !Invoice Number
  401. DATE           LONG                 !Invoice Date
  402. CHECK_NUM       STRING(6)
  403. ACCOUNT_NUM       STRING(21)
  404. FNAME           STRING(60)
  405. EXPIRE_DATE       STRING(@p<</<<p)
  406. AMTPAID           DECIMAL(11,2)         !Amount Paid
  407. TOTAL           DECIMAL(11,2)         !Invoice Total
  408. STATUS           STRING(8)
  409. BANKNAME       STRING(60)
  410. ID           STRING(60)
  411. COMMENTINFO       STRING(30)
  412.          .
  413. CUSFULLINFO     GROUP
  414. NAME           STRING(60)
  415. ADDRESS           STRING(60)
  416. CITY           STRING(60)
  417. STATE           STRING(20)
  418. ZIP           STRING(10)
  419.          .
  420. PHONE         DECIMAL(10,0)
  421. CUSSHIPINFO     GROUP
  422. SNAME           STRING(60)             !Shipping name
  423. SADDRESS       STRING(60)             !Shipping Address
  424. SCITY           STRING(60)             !shipping City
  425. SSTATE           STRING(20)             !Shipping State
  426. SZIP           STRING(10)             !Shipping Zip
  427.          .
  428. SPHONE         DECIMAL(10,0)
  429. PERSON         STRING(25)             !Sales Person
  430. SHIPPING     DECIMAL(6,2)             !Shipping Charges
  431. WEIGHT         DECIMAL(3,0)
  432. ONCES         DECIMAL(2,0)
  433. BOXES         DECIMAL(4,0)
  434. TAXES         DECIMAL(8,2)             !Taxes Charge
  435. GSTTAX         DECIMAL(8,2)             !Gst tax
  436. VIA         STRING(10)
  437. OTHER         DECIMAL(9,2)             !Other Charges
  438. SUBTOTAL     DECIMAL(11,2)             !Total of items
  439. SUBTOTAL2     DECIMAL(11,2)             !Master totals of all items
  440. CREDIT         DECIMAL(9,2)             !Credit Due
  441. AMTDUE         DECIMAL(11,2)             !Amount Due On Invoice
  442. CHANGE         DECIMAL(7,2)
  443. INVOICE_     DECIMAL(8,0)
  444. ITEMCNT         DECIMAL(5,0)             !Item Count
  445. QUOTE         STRING(10)             !Used For Quotes
  446. CREDITNUM     STRING(20)             !Credit Card Number
  447. EXPIRED         STRING(@d1)             !Credit Card Expiration
  448. BANK         STRING(25)             !Bank For Credit Card
  449. IDINFO1         STRING(30)             !Other Id Information
  450. IDINFO2         STRING(30)             !Other Id Information
  451. COMMENT         STRING(59)             !Addition Comments
  452. DEPOSIT_TOT     DECIMAL(6,2)             !Deposit Total
  453. EXTRA1         STRING(10)
  454. EXTRA2         STRING(10)
  455. EXTRA3         STRING(10)
  456. EXTRA4         STRING(10)
  457. EXTRA5         DECIMAL(8,0)
  458.          . .
  459. !------------------------------------------------------------------------------
  460. ORDITEMS     FILE,NAME('\MENU\DATA\ORDITEMS'),PRE(ITE),CREATE,RECLAIM
  461. ITEM_ORD       KEY(ITE:ORDER),DUP,NOCASE,OPT
  462. OTHERKEY       KEY(ITE:CUS_CODE,ITE:ITEM),DUP,NOCASE,OPT
  463. INVSEQNO       KEY(ITE:ORDER,ITE:ROW),NOCASE,OPT
  464. RECORD           RECORD
  465. ORDER         DECIMAL(8,0)
  466. CUS_CODE     STRING(8)
  467. CODE         STRING(20)
  468. DATE         LONG
  469. ROW         SHORT
  470. TYPE         STRING(4)
  471. UNITPRICE     DECIMAL(10,2)
  472. EXTENDED     DECIMAL(11,2)
  473. ITEM         STRING(24)             !Description of Prodcut
  474. QNTY         DECIMAL(4,0)
  475. OTHERINFO     STRING(30)
  476. OWNER         STRING(10)             !Ownership of Product
  477. TAXAMT         DECIMAL(8,2)
  478. GSTTAX         DECIMAL(8,2)
  479. DEFINER         STRING(1)
  480. TOTAL         DECIMAL(10,0)             !Total bottles
  481. PROD_TYPE     STRING(10)             !Product Type
  482. DEPOSIT_TOT     DECIMAL(7,2)             !Deposit Total
  483. QUOTE         STRING(8)
  484. EXTRA1         STRING(10)
  485. EXTRA2         STRING(10)
  486. EXTRA3         STRING(10)
  487. EXTRA4         STRING(10)
  488. EXTRA5         DECIMAL(10,0)
  489.          . .
  490. !------------------------------------------------------------------------------
  491. REPORTS         FILE,NAME('\MENU\REPORTS'),PRE(REP),CREATE,RECLAIM
  492. CODE_TAB       KEY(REP:TYPE,REP:CODE),NOCASE,OPT
  493. CODE_KEY       KEY(REP:CODE),DUP,NOCASE,OPT
  494. LETTER           MEMO(2964)
  495. RECORD           RECORD
  496. CODE         DECIMAL(4,0)
  497. TYPE         STRING(1)
  498. DESCRIPTION     STRING(68)
  499. HEADER         STRING(76)
  500. HEADER2         STRING(76)
  501. HEADER3         STRING(76)
  502.          . .
  503. !------------------------------------------------------------------------------
  504. CONTROL         FILE,NAME('\MENU\CONTROL'),PRE(CON),PROTECT
  505. RECORD           RECORD
  506. REGIST         STRING(22)             !Register field
  507. NAME         STRING(20)
  508. INFO1         STRING(45)
  509. INFO2         STRING(45)
  510. INFO3         STRING(45)
  511. INFO4         STRING(45)
  512. INFO5         STRING(45)
  513. RECORDNO     DECIMAL(15,0)
  514. RECORDNO2     DECIMAL(15,0)
  515. AREA         STRING(3)
  516. AGENT         STRING(50)             !agent's name
  517. AGENT_ADDR     STRING(50)
  518. AGENT_CITY     STRING(50)
  519. AGENT_STATE     STRING(30)             !Agent's State
  520. AGENT_ZIP     STRING(10)
  521. AGENT_PHONE     DECIMAL(10,0)
  522. COMPANY_FRA     STRING(50)             !company francise name
  523. COMPANY         STRING(50)
  524. COM_ADDRESS     STRING(50)
  525. COM_CITY     STRING(50)
  526. COM_STATE     STRING(30)
  527. COM_ZIP         STRING(10)
  528. COM_PHONE     DECIMAL(10,0)
  529. DESIGNATION     STRING(50)
  530. WORD_PRO     STRING(8)
  531. WORD_WRAP     STRING(1)
  532. WW         DECIMAL(1,0)
  533. APPORDER     DECIMAL(10,0)
  534. APPFROM         DECIMAL(2,0)             !Appointment Days From
  535. APPTO         DECIMAL(2,0)             !Appointment Days To
  536.          . .
  537. !------------------------------------------------------------------------------
  538.